<!--#INCLUDE FILE="config.asp"-->
<%
if(Session("CostabajaAccessLevel") <> 2 and Session("CostabajaAccessLevel") <> 3) then
	Response.Redirect("default.asp?msg=invalid")
end if

' Endcrypt information of CC
Set objEncrypter = Server.CreateObject ("Hyeongryeol.StringEncrypter")
objEncrypter.Key = edCode
objEncrypter.InitialVector = conIV

encryptNombreCard = objEncrypter.Encrypt (Request("NombreCredito"))
encryptTipo = objEncrypter.Encrypt (Request("Tipo"))
encryptNumerodeTarjetaCard = objEncrypter.Encrypt (Request("NumeroDeTarjeta"))
encryptCodigodeSeguridad = objEncrypter.Encrypt (Request("CodigodeSeguridad"))

' Add record to Travels

	numeroTotaldeInvitados = Request("NumeroTotaldeInvitados")
	numerodeNinos = Request("NumerodeNinos")
	NochesExtras = Request("NochesExtras")
	NombresdeAcompanantes = Request("NombresdeAcompanantes")
	detallesdeHabitacion = Request("DetallesdeHabitacion")
	actividades = Request("Actividades")
	arrival1 = Request("arrival1")
	departure1 = Request("departure1")
	arrival2 = Request("arrival2")
	departure2 = Request("departure2")
	
' Add record to Transport

	Legada_Aereolinea = Request("Aereolinea")
	Legada_Aereopuerto = Request("Aereopuerto")
	Legada_NecesitanTransporte = Request("NecesitanTransporte")
	HoraAproximadadellegada = Request("Horadellegada")
	Notas = Request("Notas")
	InforamacionPendiente = Request("InforamacionPendiente")

' Add record to Guests
	Nombre = Request("name")
	Segundo_Nombre = Request("mName")
	Apellido = Request("sName")
	Telefono = Request("phone")
	email = Request("email")
	Idioma = Request("Idioma")
	Direccion1 = Request("address1")
	Direccion2 = Request("address2")
	Ciudad = Request("Ciudad")
	Stado = Request("Stado")
	Postal = Request("Postal")
	Pais = Request("Pais")
	Comunicasion = Request("Comunicasion")
	
' Add record to Credits
	
	set objConnect = server.createObject("ADODB.Connection")       
		objConnect.open conStr
		
	Set oCmd = Server.CreateObject("ADODB.Command")
		  
		    oCmd.ActiveConnection = objConnect
			oCmd.CommandText = "sp_update_profile_Guests" 
			oCmd.CommandType = 4
			
			' ****************
			' Guests Parameters
			' ****************
			
			Set Nombre = oCmd.CreateParameter("@name", 200,1,100,Nombre)
			oCmd.Parameters.Append Nombre
			
			Set Segundo_Nombre = oCmd.CreateParameter("@middle", 200,1,100,Segundo_Nombre)
			oCmd.Parameters.Append Segundo_Nombre
			
			Set Apellido = oCmd.CreateParameter("@surname", 200,1,100,Apellido)
			oCmd.Parameters.Append Apellido
			
			Set Telefono = oCmd.CreateParameter("@phone", 200,1,100,Telefono)
			oCmd.Parameters.Append Telefono
			
			Set email = oCmd.CreateParameter("@email", 200,1,100,email)
			oCmd.Parameters.Append email
			
			Set Idioma = oCmd.CreateParameter("@languageID", 3,1,100,Idioma)
			oCmd.Parameters.Append Idioma
			
			Set Direccion1 = oCmd.CreateParameter("@address1", 200,1,100,Direccion1)
			oCmd.Parameters.Append Direccion1
			
			Set Direccion2 = oCmd.CreateParameter("@address2", 200,1,100,Direccion2)
			oCmd.Parameters.Append Direccion2
			
			Set Ciudad = oCmd.CreateParameter("@city", 200,1,100,Ciudad)
			oCmd.Parameters.Append Ciudad
			
			Set Stado = oCmd.CreateParameter("@province", 200,1,100,Stado)
			oCmd.Parameters.Append Stado
			
			Set Postal = oCmd.CreateParameter("@zip", 200,1,100,Postal)
			oCmd.Parameters.Append Postal
			
			Set Pais = oCmd.CreateParameter("@country", 200,1,100,Pais)
			oCmd.Parameters.Append Pais
			
			Set Comunicasion = oCmd.CreateParameter("@communication", 200,1,100,Comunicasion)
			oCmd.Parameters.Append Comunicasion
			
			
			' *******************
			' Transport Parameter
			' *******************
			
			Set Legada_Aereolinea = oCmd.CreateParameter("@ArrivalAirlineID", 3,1,100,Legada_Aereolinea)
			oCmd.Parameters.Append Legada_Aereolinea
			
			Set Legada_Aereopuerto = oCmd.CreateParameter("@ArrivalAirportID", 3,1,100,Legada_Aereopuerto)
			oCmd.Parameters.Append Legada_Aereopuerto
			
			Set Legada_NecesitanTransporte = oCmd.CreateParameter("@ArrivalNeedTransport", 3,1,100,Legada_NecesitanTransporte)
			oCmd.Parameters.Append Legada_NecesitanTransporte
			
			Set HoraAproximadadellegada = oCmd.CreateParameter("@ApproximateArrivalTime", 200,1,100,HoraAproximadadellegada)
			oCmd.Parameters.Append HoraAproximadadellegada
			
			Set Notas = oCmd.CreateParameter("@Notes", 200,1,100,Notas)
			oCmd.Parameters.Append Notas
			
			Set InforamacionPendiente = oCmd.CreateParameter("@InformationPending", 200,1,100,InforamacionPendiente)
			oCmd.Parameters.Append InforamacionPendiente
			
			' ********************
			' Travels
			' **********************
			
			Set arrival1 = oCmd.CreateParameter("@arrivalDate1", 200,1,100,arrival1)
			oCmd.Parameters.Append arrival1
			
			Set departure1 = oCmd.CreateParameter("@departureDate1", 200,1,100,departure1)
			oCmd.Parameters.Append departure1
			
			Set arrival2 = oCmd.CreateParameter("@arrivalDate2", 200,1,100,arrival2)
			oCmd.Parameters.Append arrival2
			
			Set departure2 = oCmd.CreateParameter("@departureDate2", 200,1,100,departure2)
			oCmd.Parameters.Append departure2
			
			Set totalNumberGuests = oCmd.CreateParameter("@totalNumberGuests", 3,1,100,numeroTotaldeInvitados)
			oCmd.Parameters.Append totalNumberGuests
			
			Set nochesExtras = oCmd.CreateParameter("@extraNight", 3,1,100,NochesExtras)
			oCmd.Parameters.Append nochesExtras
			
			Set namesOfChaperones = oCmd.CreateParameter("@namesOfChaperones", 200,1,100,NombresdeAcompanantes)
			oCmd.Parameters.Append namesOfChaperones
			
			Set roomDetail = oCmd.CreateParameter("@roomDetail", 200,1,100,detallesdeHabitacion)
			oCmd.Parameters.Append roomDetail
			
			Set actividades = oCmd.CreateParameter("@activitiesOnTravel", 200,1,100,actividades)
			oCmd.Parameters.Append actividades
			
			Set numberChildren = oCmd.CreateParameter("@numberChildren", 3,1,100,numerodeNinos)
			oCmd.Parameters.Append numberChildren
			
			' ********************
			' Credits
			' **********************

			Set NombreCredit = oCmd.CreateParameter("@NombreCredit", 200,1,100,encryptNombreCard)
			oCmd.Parameters.Append NombreCredit
			
			Set Tipo = oCmd.CreateParameter("@Tipo", 200,1,100,encryptTipo)
			oCmd.Parameters.Append Tipo
			
			Set NumeroDeTarjeta = oCmd.CreateParameter("@NumeroDeTarjeta", 200,1,100,encryptNumerodeTarjetaCard)
			oCmd.Parameters.Append NumeroDeTarjeta
			
			Set FechaDeExpiracion = oCmd.CreateParameter("@FechaDeExpiracion", 200,1,100,Request("FechaDeExpiracion"))
			oCmd.Parameters.Append FechaDeExpiracion
			
			Set CodigoDeSeguridad = oCmd.CreateParameter("@CodigoDeSeguridad", 200,1,100,encryptCodigodeSeguridad)
			oCmd.Parameters.Append CodigoDeSeguridad
			
			Set guestID = oCmd.CreateParameter("@guestID", 3,1,100,Request("guestID"))
			oCmd.Parameters.Append guestID
			
		set rss = oCmd.execute

%>